home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #51 (Dec 89) / LISP sources / listing 06 < prev    next >
Text File  |  1988-10-23  |  651b  |  34 lines
  1. Welcome to Allegro CL Version 1.2!
  2. ? 
  3. TOWEROFHANOI
  4. NIL
  5. EXIST
  6. HANOI
  7. MOVEDISK
  8. MOVETOWER
  9. ADDFIRST
  10. GETANDREMOVEFIRST
  11. ? 
  12. > Continuable Error: Attempt to globally define object function HANOI
  13. > While executing: FSET-GLOBALLY
  14. > If Continued: Bind HANOI in the root object
  15. > Type Command-/ to continue, Command-. to abort.
  16. 1 > Continuing...
  17. HANOI
  18. > Continuable Error: Attempt to globally define object function MOVEDI
  19. SK
  20. > While executing: FSET-GLOBALLY
  21. > If Continued: Bind MOVEDISK in the root object
  22. > Type Command-/ to continue, Command-. to abort.
  23. 1 > Continuing...
  24. MOVEDISK
  25. ? (Hanoi 3 "A" "B" "C")
  26. A -> B
  27. A -> C
  28. B -> C
  29. A -> B
  30. C -> A
  31. C -> B
  32. A -> B
  33. NIL
  34. ?